home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Mode Examples / Perl-Example.pl < prev    next >
Encoding:
Perl Script  |  2000-10-30  |  9.9 KB  |  305 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # Perl-Example.pl
  4. # 
  5. # included in the Alpha distribution as an example of the Perl mode
  6. # Perl mode is part of Alpha's standard distribution
  7. # More information about Perl and MacPerl can be found at
  8. #      <http://www.macperl.com/>
  9. #      
  10. # Note: if you use Setext mode, this Perl script can be used to convert
  11. # Setext to HTML.  Some customization is available in the first code block.
  12. #      -Donavan Hall
  13. #      
  14. #########################################################################
  15. # Setext2HTML.pl
  16. # Convert setext input file to html index plus 1 file per chapter.
  17. # NOTE: Input text must be wrapped text (not word processor paragraphs).
  18. # Refer to EasyView documentation for setext details, or anon ftp
  19. #          ftp://garbo.uwasa.fi/mac/tidbits/setext/setext_concepts_Aug92.etx
  20. #
  21. # Sandra Silcot, csg1, ITS, University of Melbourne
  22. # Email: ssilcot@ariel.unimelb.edu.au
  23. #########################################################################
  24. # CUSTOMISE These as required
  25.  
  26. $title             = "MACSCRPT Digests";
  27. $parttitle         = "MACSCRPT Digest :";
  28. $source = 'Mail digests --> EasyView --> Setext --> Setext2HTML (S.Silcot)';
  29. $datemodified      = '23-Sep-1994.';
  30. $maintainer        = 'Sandra Silcot';
  31. $maintaineremail   = 'ssilcot@www.unimelb.edu.au';
  32. $indexpointers = "<pre><a href=\"ghindex.html\"><b>Search</b></a>  |  ".
  33. "<a href=\"http://www.unimelb.edu.au/~ssilcot/mail-archive/index.html\">Mail-index</a>  |  ".
  34. "<a href=\"http://www.unimelb.edu.au/~ssilcot/index.html\">Sandra's-home</a>  |  ".
  35. "<a href=\"http://www.unimelb.edu.au/\">UniMelb-CWIS</a></pre>";
  36.  
  37. ########################################################### 
  38. # No customisation needed below this line
  39. ########################################################### Init
  40. $Url        = '(http://|ftp://|afs://|wais://|telnet://|gopher://|' .
  41.           'news:|nntp:|mid:|cid:|mailto:|prospero:)';
  42. $UrlExp    = $Url . q%[^\s\(\)\|<>"']*[^\.;,"'\|\[\]\(\)\s<>]%;
  43. $HUrlExp   = $Url . q%[^\s\(\)\|<>"'\&]*[^\.;,"'\|\[\]\(\)\s<>\&]%;
  44.  
  45.  
  46. $q = '"';              # double quote
  47. require "ctime.pl";
  48. $DateTime = &ctime(time);
  49. chop($DateTime);
  50. if( $MacPerl'Version ) {$pathdelim = ":";}
  51. else                   {$pathdelim = "/";}
  52. @filenameparts = split(/$pathdelim/,$ARGV[0]);
  53. $infile= $filenameparts[$#filenameparts];
  54. if (!infile) {die ("ÄÄÄNO INPUT FILE");}
  55.  
  56. $footer = "\n<hr>\n" .
  57.           "<pre>HTML generated by " .
  58.           "<a href=\"http://www.unimelb.edu.au/~ssilcot/ssperltools/Setext2html.html\">Setext2html.pl</a>".
  59.           " $DateTime.\n" .
  60.           "Original source: $source\n" .
  61.           "<address>$maintainer\n" .
  62.           "<a href=\"mailto:$maintaineremail\">$maintaineremail</a></address>\n" .
  63.           "</pre></body>\n</html>\n";
  64.  
  65. $CHAPTER = 1;
  66. $SECTION = 2;
  67. $BODY    = 3;
  68. $SKIP    = 0;
  69.  
  70. ########################################################### glob input file
  71.  
  72. open (STDIN,"$ARGV[0]") || die ("ÄÄÄFAILED TO OPEN INPUT FILE $ARGV[0]");
  73.  
  74. #$out = "<li><a href=$q".$infile."_$cnum.html#$i$q>$_</a></li>\n";
  75. #print $out;
  76. #exit;
  77.  
  78. # read in the whole file, do bolds and translate specials
  79.  
  80. $i = 0;
  81. for (<STDIN>) {
  82. #    s~<~<~g;
  83. #    s~>~>~g;
  84.     s~\*\*([^\*]+)\*\*~<b>$1</b>~g;  # setext bolds wrapped like **foo**
  85.     tr/Ä≥å≤πÅ/*"'"'/;                # translate specials
  86.     $data[$i] = $_;
  87.     $i++;
  88. }
  89.  
  90. ########################################################### pass 1 - set flags
  91.  
  92. $prev = "";
  93. $nchapters = 0;
  94.  
  95. for ($i = 0; $i <= $#data; $i++) {
  96.     $before = $i - 1;
  97.     $_ = $data[$i];                 # $_ is default
  98.     $thislength = length;
  99.     if (($thislength==$prevlength) && (m/^====/i)) {   # preceeding line a chapter
  100.         if ($nchapters == 0) {    
  101.             $docname = $prev;    # first chapter is document name
  102.             chop($docname);
  103.             } 
  104.         $nchapters++;
  105.         $chap{$i} = $prev;
  106.         $flag[$before] = $CHAPTER;
  107.         chop($data[$before]);
  108.         $flag[$i] = $SKIP;
  109.         }
  110.     elsif (($thislength==$prevlength) && (m/^----/i)) {   # preceeding line a section
  111.         $sect{$i} = $prev;
  112.         $flag[$before] = $SECTION;
  113.         chop($data[$before]); 
  114.         $flag[$i] = $SKIP;
  115.         }
  116.     else {
  117.         $flag[$i] = $BODY;        
  118.     }
  119.     $prev = $_;
  120.     $prevlength = length;
  121. }
  122.  
  123. ########################################################### htmlise
  124. # THANKS to Earl Hood - his MHonArc supplies the code which htmlises lines
  125. for ($i = 0; $i <= $#data; $i++) {
  126. ####    $data[$i] =~ s~<~<~g;
  127. ####    $data[$i] =~ s~>~>~g;
  128.     # convert to html
  129.     $data[$i] = &convert_line($data[$i]);
  130.     # do mail to urls (ex mhonarc by E.Hood
  131.        $data[$i] =~ s|([\!\%\w\.-]+@[\w\.-]+)|<A HREF="mailto:$1">$1</A>|g;
  132.  
  133. }
  134.  
  135. ########################################################### do chapter index file
  136.  
  137. open (STDOUT,">$ARGV[0].html") || die ("ÄÄÄFAILED TO OPEN OUTPUT FILE $ARGV[0].html");
  138. print "<html><head>\n<link rev=\"made\" href=\"mailto:$maintaineremail\">\n" .
  139.       "<title>$title</title>\n</head>\n<body>\n\n";
  140. print "$indexpointers\n<hr>\n<h1>$title</h1>\n\n<ul>\n";
  141.  
  142.  
  143. # now pass through all the lines again for lists in TOC file
  144.  
  145. $lastischap = 1;
  146. $cnum = 9;
  147.  
  148. for ($i = 0; $i <= $#data; $i++) {
  149.     $_ = $data[$i]; 
  150.     if  ($flag[$i] == $CHAPTER) {   # its a chapter
  151.         $cnum++;
  152.         print "<li><a href=$q".$infile."_$cnum.html#$i$q>$_</a></li>\n";
  153.         }
  154. }
  155. print "  </ul>\n<hr>$indexpointers\n\n$footer";
  156.  
  157. ########################################################### chapter contents
  158. # now pass through all the lines again and print heads and body 
  159. # ONE FILE PER CHAPTER - print section contents to each file
  160.  
  161. $cnum = 9;
  162. $end ="";
  163.  
  164. for ($i = 0; $i <= $#data; $i++) {
  165.     $_ = $data[$i];   
  166.     if  ($flag[$i] == $CHAPTER) {   
  167.         #
  168.         # NEW CHAPTER - finish off last and start a new output file
  169.         #
  170.         $cnum++;
  171.         if ($cnum == 10) {
  172.             $prev = $infile. ".html";  # link back to index if first chapter
  173.             }
  174.         else {
  175.             $x = $cnum - 1;
  176.             $prev = $infile. "_$x.html";
  177.             }
  178.         $x = $cnum + 1;
  179.         $next = $infile. "_$x.html";
  180.         #
  181.         # finish off last file
  182.         #
  183.         print "$end"; 
  184.         if ($nchapters > 1) {
  185.            if ($cnum == ($nchapters + 9)) {                    # last chapter
  186.                $navigation[$cnum] = "<hr><pre><a href=$q$prev$q><b>Previous-digest</b></a>  |  " .
  187.                                     "<a href=$q$infile.html$q><b>Digest-index</b></a>\n\n".
  188.                                     "$indexpointers\n";
  189.                }
  190.            elsif ($cnum == 10) {                               # first chapter
  191.                $navigation[$cnum] = "<hr><pre><a href=$q$next$q><b>Next-digest</b></a>  |  " .
  192.                                     "<a href=$q$infile.html$q><b>Digest-index</b></a>\n\n".
  193.                                     "$indexpointers\n";
  194.                }
  195.            else {
  196.                $navigation[$cnum] = "<hr><pre><a href=$q$next$q><b>Next-digest</b></a>  |  " .
  197.                                     "<a href=$q$prev$q><b>Previous-digest</b></a>  |  " .
  198.                                     "<a href=$q$infile.html$q><b>Digest-index</b></a>\n\n".
  199.                                     "$indexpointers\n";
  200.                }
  201.            }
  202.         else {$navigation[$cnum] = "";}
  203.         $end = "</ul>\n$navigation[$cnum]\n<hr><pre>";
  204.         close (STDOUT);
  205.         #
  206.         # start next file
  207.         #
  208.         open (STDOUT,">$ARGV[0]_$cnum.html") || die ("ÄÄÄFAILED TO OPEN $ARGV[0]_$cnum.html");
  209.         if ($nchapters > 1) {
  210.             print "<html><head>\n" .
  211.                   "<link rev=\"made\" href=\"mailto:$maintaineremail\">\n" .
  212.                   "<title>$title - $_</title>\n</head>\n<body>\n\n";
  213.             }
  214.         else {
  215.             print "<html><head>\n" .
  216.                   "<link rev=\"made\" href=\"mailto:$maintaineremail\">\n" .
  217.                   "<title>$title</title>\n</head>\n<body>\n\n";
  218.             }
  219.         print "$indexpointers\n<hr>\n<h1>$parttitle $_</h1>\n\n<ul>\n";
  220.         }
  221.     elsif  ($flag[$i] == $SECTION) {   # its a section
  222.         #
  223.         # NEW SECTION
  224.         #
  225.         print "<li><a href=#$i>$_</a></li>\n";
  226.         }
  227. }
  228.  
  229. ########################################################### append chapter body
  230. # now pass through all the lines again and print headers for sections and body 
  231. # APPEND TO EACH CHAPTER
  232.  
  233. $cnum = 9;
  234.  
  235. for ($i = 0; $i <= $#data; $i++) {
  236.     $_ = $data[$i];   
  237.     if  ($flag[$i] == $CHAPTER) {   # its a chapter
  238.  
  239.         $cnum++;     
  240.         # print end stuff
  241.         print "$end";
  242.         $end = "</pre>\n<p></p>\n$navigation[$cnum]\n$footer";
  243.         close (STDOUT);
  244.  
  245.         # append heads and body
  246.  
  247.         open (STDOUT,">>$ARGV[0]_$cnum.html") || die ("ÄÄÄFAILED TO OPEN $ARGV[0]_$cnum.html");
  248.         
  249.         }
  250.     elsif  ($flag[$i] == $SECTION) {   # its a section
  251.         print "</pre>\n\n<hr><h2><a name=$i>$_</a></h2>\n<pre>\n";
  252.         }
  253.     elsif  ($flag[$i] == $BODY) {   # its a body line 
  254.         print;
  255.         }
  256. }
  257.  
  258. # fin
  259. print "$end";
  260. close (STDOUT);
  261.  
  262. ##---------------------------------------------------------------------------
  263. ##    convert_line() translates a line to HTML.  Checks are made for
  264. ##    embedded URLs.
  265. sub convert_line {
  266.     local($tmp) = shift;
  267.     local($item, $item2, @array);
  268.  
  269.     if (!$NOURL) {
  270.     if (@array = split(m%($Url[^\s\(\)\|<>"']*[^\.;,"'\|\[\]\(\)\s<>])%o,
  271.                    $tmp)) {
  272.         $tmp = '';
  273.         while($#array > 0) {
  274.         $item = shift @array;
  275.         &htmlize(*item);
  276.         $item2 = shift @array;
  277.         $tmp .= $item . '<A HREF="' . $item2 . '">' . $item2 . '</A>';
  278.  
  279.         # The next line is needed since Perl's split function also
  280.         # returns extra entries for nested ()'s in the split pattern.
  281.         shift @array  if $array[0] =~ m%^$Url$%o;
  282.         }
  283.         $item = shift @array;
  284.         &htmlize(*item);
  285.         $tmp .= $item;
  286.     ## Regular line
  287.     } else {
  288.         &htmlize(*tmp);
  289.     }
  290.     } else {
  291.     &htmlize(*tmp);
  292.     }
  293.     $tmp;
  294. }
  295. ##---------------------------------------------------------------------------
  296. ##    "Entify" special characters
  297. sub htmlize {
  298.     local(*txt) = shift;
  299.     $txt =~ s/&/\&/g;
  300.     $txt =~ s/>/>/g;
  301.     $txt =~ s/</</g;
  302.     $txt;
  303. }
  304.  
  305.